Caption = "Schema files (xxxxx.ISS) are not part of VB/ISAM datasets per se, but are used by this program and by other Software Source utitlity/add-on programs as an optional component to supply extra information about VB/ISAM Version 2.x datasets -- in particular, user-defined field names."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 615
Left = 150
TabIndex = 64
Top = 90
Width = 7005
End
Begin Label Label36
Caption = "If you choose to use schema files in your VB/ISAM application development, we recommend that you keep them open only as long as is required for reading and/or updating them, to conserve Windows file handles in a large/complex application."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 645
Left = 150
TabIndex = 63
Top = 720
Width = 7005
End
Begin Label Label37
Caption = "Schema files are ordinary line-oriented text files; they are managed with Visual Basic statements, NOT with VB/ISAM function calls. We suggest using the string manipulation functions in our FieldPack product, however, for convenience in reading and modifying schema-file contents. File format is as follows (note, total file size <= 64 KB):"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 795
Left = 150
TabIndex = 62
Top = 1350
Width = 7005
End
Begin Label Label38
Caption = "Line 1: ""[BEGIN COMMENTS]"""
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Left = 150
TabIndex = 61
Top = 2160
Width = 7005
End
Begin Label Label39
Caption = "Lines 2 through n: Free-form comments."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Left = 150
TabIndex = 60
Top = 2370
Width = 7005
End
Begin Label Label40
Caption = "Line n+1: ""[BEGIN SCHEMA]"""
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Left = 150
TabIndex = 59
Top = 2580
Width = 7005
End
Begin Label Label41
Caption = "Line n+2: Schema-line for the dataset's primary key; see below."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Left = 150
TabIndex = 58
Top = 2790
Width = 7005
End
Begin Label Label42
Caption = "Lines n+3 through ???: ""Schema lines,"" one for each field in the corresponding dataset's record layout. Each schema line is divided into seven variable-length sub-fields, delimited by six ""|"" (vertical bar) characters. The first two sub-fields are mandatory; the remaining fields may be empty."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 615
Left = 150
TabIndex = 57
Top = 3000
Width = 7005
End
Begin Label Label43
Caption = "Sub-field 1: Field number, as three digits: ""000,"" ""001,"" etc. (in order)."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Left = 330
TabIndex = 56
Top = 3630
Width = 6105
End
Begin Label Label44
Caption = "Sub-field 2: Data/index type (from the VB/ISAM StandardRecordFormat string)."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Left = 330
TabIndex = 55
Top = 3840
Width = 6105
End
Begin Label Label45
Caption = "Sub-field 3: Field name."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Left = 330
TabIndex = 54
Top = 4050
Width = 6105
End
Begin Label Label46
Caption = "Sub-field 4: Display width. (Suggested use: for printed reports using monospaced fonts.)"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Left = 330
TabIndex = 53
Top = 4260
Width = 6765
End
Begin Label Label47
Caption = "Sub-field 5: Display justification -- L, R, or C (see sub-field 4)."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Left = 330
TabIndex = 52
Top = 4470
Width = 6105
End
Begin Label Label48
Caption = "Sub-field 6: Reserved for Software Source."
Caption = "This software was created using VB/ISAM [TM], Copyright
Software Source 1991-1994. All rights reserved. VB/ISAM software may not be used, copied, modified, transferred, or distributed except as expressly provided in its software license. Only licensees of VB/ISAM may create software that uses any part of VB/ISAM."
FontBold = 0 'False
FontItalic = -1 'True
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 795
Left = 270
TabIndex = 10
Top = 4530
Width = 6705
End
Begin Label Label4
Caption = "QA: Don Wanless, James Bolivar DiGriz, Carlos Wu"
Height = 225
Left = 1020
TabIndex = 22
Top = 2940
Width = 4545
End
Begin Label Label11
Caption = "Author: Sam Cohen"
Height = 225
Left = 1020
TabIndex = 20
Top = 2730
Width = 1755
End
Begin Label Label10
Alignment = 2 'Center
Caption = "+1 (510) 651-6039 Fax"
Height = 255
Left = 2130
TabIndex = 18
Top = 2400
Width = 3285
End
Begin Label Label9
Alignment = 2 'Center
Caption = "+1 (510) 623-7854 Tel."
Height = 255
Left = 2130
TabIndex = 17
Top = 2190
Width = 3285
End
Begin Label Label8
Alignment = 2 'Center
Caption = "Fremont, California 94538 USA"
Height = 255
Left = 2130
TabIndex = 16
Top = 1980
Width = 3285
End
Begin Label Label7
Alignment = 2 'Center
Caption = "42808 Christy Street, Ste. 222"
Height = 255
Left = 2130
TabIndex = 15
Top = 1770
Width = 3285
End
Begin Label Label5
Caption = "SAM4 is a limited version of VB/ISAM Data Editor, V1.0; SAM4 was designed to illustrate source-code use of the VB/ISAM extension to the Visual Basic
programming language. Whereas SAM4 is ""hard- wired"" to work with only one specific dataset, VB/ISAM Data Editor incorporates special technology to open any existing VB/ISAM dataset with up to 99 fields in its record format. (It includes a Common Dialog for opening files, scrolls the display area, and handles data in a more sophisticated manner.) For more information, contact Software Source."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 1215
Left = 270
TabIndex = 13
Top = 3270
Width = 6705
End
Begin Label Label3
Caption = "Copyright
1994 by"
Height = 255
Left = 1020
TabIndex = 11
Top = 840
Width = 2085
End
Begin Label Label2
Caption = "Sample Program SAM4"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 13.5
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 375
Left = 2940
TabIndex = 8
Top = 300
Width = 4125
End
End
Begin PictureBox picExplain
BorderStyle = 0 'None
Height = 5265
Left = 0
ScaleHeight = 5265
ScaleWidth = 7290
TabIndex = 5
TabStop = 0 'False
Top = 0
Width = 7290
Begin Label Label33
Caption = "The center button among the ""VCR"" controls is a ""Seek"" button; it searches in the current index for the string you've entered immediately above the Seek button, and displays either the first record with the matching index-field value, or, if there's no match, the record with the next higher-sorting index value. If your seek-string is higher than the last index entry, the program displays the last record in that index."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 1005
Left = 120
TabIndex = 42
Top = 2940
Width = 6945
End
Begin Label Label15
Caption = "In read-write mode, you can change the contents of any field. (For simplicity, SAM4 doesn't filter out newlines or other control characters, but you should avoid them, especially if you're going to export data.) The Clear/Restore button toggles between clearing the display (so that you can conveniently enter data for a new record) and restoring the original contents of the current record to the display. Note that this program maintains direct access into the dataset; the effects of the Add Record, Update Record, and Delete Record buttons apply to the real dataset, not to a copy."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 1245
Left = 120
TabIndex = 12
Top = 4020
Width = 6945
End
Begin Label Label14
Caption = "In browsing through records, first select the index sequence; each index ""threads"" the entire dataset in a different sort sequence. Note that if a record has an empty index field (null string), that record will not be represented in that index. You can change the browse index either by using the index combo-box, or by clicking on the field-name label of a valid index field in the display area. When you change the browse index, the program positions you to the currently-displayed record in the new index sequence (or to the next record after the position of a just-deleted record)."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 1215
Left = 120
TabIndex = 24
Top = 1680
Width = 6945
End
Begin Label Label13
Caption = "In either access mode, you can export the entire dataset to a .CSV file. .CSV (""comma-separated- values"") files are ASCII text files containing one variable-length line, terminated with CRLF, for each dataset record. Within each line, field contents are separated by commas. Numeric fields are converted to text. String fields containing commas are surrounded by double-quotes."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 825
Left = 120
TabIndex = 23
Top = 810
Width = 6945
End
Begin Label Label1
Caption = "This program opens an existing VB/ISAM dataset in read-only mode, for browsing, or read-write mode, for browsing and modification. If no schema file (xxx.ISS) accompanies the dataset, it will create one; you can update the schema file (i.e., define field names) in read-write mode."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 645
Left = 90
TabIndex = 6
Top = 150
Width = 6945
End
End
Begin SSPanel pnlOKButton
BackColor = &H00C0C0C0&
BevelInner = 1 'Inset
Font3D = 0 'None
ForeColor = &H00FF0000&
Height = 1095
Left = 5790
TabIndex = 4
Top = 5340
Width = 1365
Begin SSCommand cmdOK
Caption = "OK"
Font3D = 0 'None
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 915
Left = 90
Outline = 0 'False
Picture = SAM4HELP.FRX:2ACE
TabIndex = 0
Top = 90
Width = 1185
End
End
Begin PictureBox picVBISAM
BorderStyle = 0 'None
Height = 5325
Left = 0
ScaleHeight = 5325
ScaleWidth = 7290
TabIndex = 3
TabStop = 0 'False
Top = 0
Width = 7290
Begin Label Label32
Caption = ">> Utility String Tools, for justification, character conversion, and more."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 255
Left = 510
TabIndex = 27
Top = 4920
Width = 6195
End
Begin Label Label31
Caption = ">> Delimited String Tools, for Pick/OS-like mini-databases of up to 64 KB."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 255
Left = 510
TabIndex = 28
Top = 4710
Width = 6195
End
Begin Label Label30
Caption = ">> SuperString Tools, to pack any sequence of data items into variable-length strings."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 255
Left = 510
TabIndex = 29
Top = 4500
Width = 6195
End
Begin Label Label29
Caption = "This program also uses FieldPack [TM], an inexpensive set of three useful tools:"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Left = 90
TabIndex = 41
Top = 4230
Width = 7035
End
Begin Label Label28
Caption = "VB/ISAM (VB Indexed-Sequential Access Method) has been proven in the marketplace since August of 1991, and has earned a reputation as a rock-solid, bulletproof product."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 435
Left = 90
TabIndex = 40
Top = 2040
Width = 7035
End
Begin Label Label27
Caption = ">> The DLL is under 50 KB (!!)."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 255
Left = 510
TabIndex = 39
Top = 1650
Width = 6195
End
Begin Label Label26
Caption = ">> Most applications use only 8 or 10 of its 16 functions."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 255
Left = 510
TabIndex = 38
Top = 1440
Width = 6195
End
Begin Label Label25
Caption = ">> The user manual is under 80 pages long."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 255
Left = 510
TabIndex = 37
Top = 1230
Width = 6195
End
Begin Label Label24
Caption = ">> Low prices and no royalty requirements."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 255
Left = 510
TabIndex = 36
Top = 3840
Width = 6195
End
Begin Label Label23
Caption = ">> File-compatible versions available for C/C++ (Windows) and for VB/DOS."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 255
Left = 510
TabIndex = 35
Top = 3630
Width = 6195
End
Begin Label Label22
Caption = ">> Multi-user/network version includes semaphore functions for record locking."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 255
Left = 510
TabIndex = 34
Top = 3420
Width = 6195
End
Begin Label Label21
Caption = ">> Index order and file space automatically maintained at all times; no ""re-org"" required."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 255
Left = 510
TabIndex = 33
Top = 3210
Width = 6195
End
Begin Label Label20
Caption = ">> Up to 80 indexes, stored in one file together with the data records."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 255
Left = 510
TabIndex = 32
Top = 3000
Width = 6195
End
Begin Label Label19
Caption = ">> Variable-length fields and records to 32 KB, files to 512 MB."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 255
Left = 510
TabIndex = 31
Top = 2790
Width = 6195
End
Begin Label Label18
Caption = "Features include:"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 255
Left = 90
TabIndex = 30
Top = 2550
Width = 6195
End
Begin Label Label17
Caption = "In addition to speed, VB/ISAM is known for intelligent design, simplicity, and low overhead: "
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Left = 90
TabIndex = 26
Top = 990
Width = 7035
End
Begin Label Label16
Caption = "This program uses the VB/ISAM database engine. A powerful low-level tool, VB/ISAM is the fastest data manager available for Visual Basic
for Windows [TM]. In tests conducted in December 1993, it outperformed Microsoft Access [TM] by factors of up to 24 to 1."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 645
Left = 90
TabIndex = 25
Top = 240
Width = 7035
End
End
Begin Label lblLicense
BackColor = &H00FFFFFF&
Caption = "SAM4 SOFTWARE LICENSE: You may freely copy and distribute this program, provided that you distri- bute all its components and asso- ciated files without modification."
ForeColor = &H000000FF&
Height = 1005
Left = 270
TabIndex = 14
Top = 5430
Width = 3105
End
Begin Label lblRequires
Caption = "This program links to: VBIS23DM.DLL and FLDPAK12.DLL (Software Source); and CMDIALOG.VBX, SPIN.VBX, THREED.VBX, COMMDLG.DLL, and VBRUN300.DLL (Microsoft
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 1035
Left = 120
TabIndex = 43
Top = 5310
Width = 3285
End
End
End
Option Explicit
Sub cmdOK_Click ()
Me.Hide
End Sub
Sub Form_Activate ()
OptDisplay(0).Value = True
End Sub
Sub optDisplay_Click (Index As Integer, Value As Integer)
(.txt)